home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / CODE32.ZIP;1 / STRLTU.RT < prev   
Encoding:
Text File  |  1993-01-09  |  652 b   |  30 lines
  1. public  _strltu
  2. ;∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
  3. ; Make all lower case letters in string uppercase
  4. ; In:
  5. ;   EDX -> string
  6. ; Out:
  7. ;   None
  8. ;∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
  9. _strltu:
  10.         push ax
  11.         push edx
  12. strltuml:
  13.         mov al,[edx]
  14.         or al,al
  15.         jz short strltumld
  16.         cmp al,'a'
  17.         jb short strltumlf0
  18.         cmp al,'z'
  19.         ja short strltumlf0
  20.         sub al,'a'-'A'
  21.         mov [edx],al
  22. strltumlf0:
  23.         inc edx
  24.         jmp strltuml
  25. strltumld:
  26.         pop edx
  27.         pop ax
  28.         ret
  29.  
  30.